Option Explicit
Sub A_Sample018()
    Dim myRng As Range
    Set myRng = Rows(1).Find(What:="*", After:=Range("A1"), _
         LookIn:=xlFormulas, SearchDirection:=xlPrevious)
    If myRng Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng.Address
    End If
End Sub
